﻿Public Class AfOdemeBildirgesi2009
    Inherits ProcessReport

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "2009 Af Ödeme Bildirgesi Yazımı"
            Case EventType.ValidateForm
                e.Result = True
            Case EventType.CoverPage
                Report.PrintDocHeader()
            Case EventType.PageHeader
                Report.PrintParagraph("* tarihinde, geriye dönük prim borçlarınızı 26/2009 sayılı Gecikmiş Sosyal Sigorta Prim Borçları ve " & _
                                      "Gecikme Zamlarının Ödeme Planı ile İlgili Kuralların Düzenlenmesine İlişkin Yasa Gücünde Kararname " & _
                                      "tahtında ödeyebilmeniz için yapmış olduğunuz müracaat incelenmiş bulunmaktadır. " & _
                                      "Yapılan incelemede, prim borçlarınızı bu kararname çerçevesinde ödemeniz uygun görülmüştür. " & _
                                      "İlgili kararname uyarınca yapılacak ödeme planı çerçevesinde prim borçlarının * " & _
                                      "tarihine kadar ödenmesi gerekmektedir./n/nBilgi edinilmesi rica olunur.")
                Report.PrintPageHeader("Tarih Aralığı : " & Input("Tarih1") & " - " & Input("Tarih2"), "Döküm Tarihi : " & DMY(Today))
                Report.SetColumns("Hesap No.;Hesap Adı;Adet;Tutar", "1;4;1;1", "c;l;r;m", "-")
            Case EventType.ReportDetail
                Do Until Rs.EOF
                    Report.Print(Rs("hesapno"), Rs("hesapadi"), Rs("adet"), Rs("toplam"))
                    Rs.MoveNext()
                Loop
                Report.PrintTotal("", "TOPLAM", Rs.Sum("adet"), Rs.Sum("toplam"))
        End Select
    End Sub

End Class
